******************************************************************************************************************************
*********************************** REPRODUCTION FILE FOR HILLEN 2022: Economy or culture? ***********************************
************* How the relative salience of policy dimensions shapes partisan effects on welfare state generosity *************
**************************************************** Socio-Economic Review ***************************************************
******************************************************************************************************************************

	/* The two additional files provided in the data repository show how the measures of relative salience used in the study
		were generated.
			(a) "EconOrCult_reproduce relative salience.do" draws on the Manifesto Project Dataset and reproduces Figures 2 
				and A3 of the article.
			(b) "EconOrCult_reproduce dimension dominance.do" draws on the CHES trend file and illustrates the measure of 
				dimension dominance applied in Section 7 of the appendix
	
******************************************************************************************************************************
	
	 To run this file download the two datasets provided in the repository: "EconOrCult_main dataset", 
		"EconOrCult_additional dataset"
	
		The main dataset allows you to reproduce the main analysis and most robustness checks. The additional dataset allows
		you to reproduce the robustness checks in Section 7 of the appendix.
	
******************************************************************************************************************************	
	
	 If necessary, install missing ados and graph schemes. 
		Ados used: coefplot, eststout, fre, rangestat 
		Graph scheme: plotplainblind
			ssc install coefplot
			ssc install estout
			ssc install fre
			ssc install rangestat
			ssc install blindschemes, replace all	
	*/

******************************************************************************************************************************	

	* general settings
		set more off, perm
		version 16.1	
	
	
			*******************************************
*****		************ Main analysis ****************		*****
			******************************************* 
	
	use "EconOrCult_main dataset", clear 
	
		drop if country == "USA" | country == "New Zealand" | country == "Japan" | country == "Canada" | country == "Australia"
			
			
		***** Welfare state generosity					
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1	
						eststo m1
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0, lcolor(gs6)) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-4 6) titlegap(0)) ylabel(-4(2)6) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (model 1)")) ///
						scheme(plotplainblind) name(wgen_le_salience1, replace)
											
				* Predicted values
					fre oldleft01 if e(sample)
					margins, at(relsal_w=(-25(1)26) oldleft01=(0 1))
						marginsplot, level(85) ///
							xscale(titlegap(0)) xtitle("Relative salience economic items", size(small)) ///
							ci1opts(lcolor(gs10)) plot1opts(color(gs10)) ci2opts(lcolor(black)) plot2opts(color(black)) ///
							text(1.8 1 "Left cabinet", color(black) size(small)) ///
							text(-0.5 -1 "Non-left cabinet", color(gs10) size(small)) ///
							yline(0, lcolor(gs6)) ytitle("") legend(off) ///
							title("Predicted changes in welfare state generosity (model 1)") ///
							addplot(hist relsal_w if e(sample), yscale(range(-2 4)) ylabel(-2(2)4) xscale(range(-25 26)) xlabel(-25(5)25) bin(20) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2))) ///
							scheme(plotplainblind) name(pred_gen1, replace)
									
						* check whether 85% approximation works 
						margins, at(relsal_w=(-25(1)26) oldleft01=(0 1)) coeflegend post
						test 78._at=26._at // p is 0.0696, 85% CIs overlap
						test 79._at=27._at // p is 0.0419, 85% CIs don't overlap; 95% CIs overlap
					
							
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m2
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0, lcolor(gs6)) legend(off) ///
						addplot(hist relsal_w if e(sample), xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-4 6) titlegap(0)) ylabel(-4(2)6) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (model 2)")) ///
						scheme(plotplainblind) name(wgen_le_salience2, replace)
						
				* Predicted values
					margins, at(relsal_w=(-25(1)26) oldleft01=(0 1))
						marginsplot, level(85) ///
							xscale(titlegap(0)) xtitle("Relative salience economic items", size(small)) ///
							ci1opts(lcolor(gs10)) plot1opts(color(gs10)) ci2opts(lcolor(black)) plot2opts(color(black)) ///
							text(2 -2 "Left cabinet", color(black) size(small)) ///
							text(-0.7 -3 "Non-left cabinet", color(gs10) size(small)) ///
							yline(0, lcolor(gs6)) ytitle("") legend(off) ///
							title("Predicted changes in welfare state generosity (model 2)") ///
							addplot(hist relsal_w if e(sample), xscale(range(-25 26)) xlabel(-25(5)25) bin(20) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2))) ///
							scheme(plotplainblind) name(pred_gen2, replace)	

						* check whether 85% approximation works 
						margins, at(relsal_w=(-25(1)26) oldleft01=(0 1)) coeflegend post
						test 84._at=32._at // p is 0.1077, 85% CIs just don't overlap					
				
				
			*** Descriptive statistics
				sum wfsgen_diff if e(sample)	
						
					
		***** Unemployment benefits generosity
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m3				
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0, lcolor(gs6)) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(titlegap(0)) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (model 3)")) ///
						scheme(plotplainblind) name(ugen_le_salience1, replace)	
							
				* Predicted values	
					fre oldleft01 if e(sample)
					margins, at(relsal_w=(-25(1)26) oldleft01=(0 1))
						marginsplot, level(85) ///
							xscale(titlegap(0)) xtitle("Relative salience economic items", size(small)) ///
							ci1opts(lcolor(gs10)) plot1opts(color(gs10)) ci2opts(lcolor(black)) plot2opts(color(black)) ///
							text(0.9 1 "Left cabinet", color(black) size(small)) ///
							text(-0.5 1 "Non-left cabinet", color(gs10) size(small)) ///
							yline(0, lcolor(gs6)) ytitle("") legend(off) ///
							title("Predicted changes in unemployment benefit generosity (model 3)") ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 26)) xlabel(-25(5)25) bin(20) yscale(range(-1 2)) ylabel(-1(1)2) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2))) ///
							scheme(plotplainblind) name(pred_ugen1, replace)
											
						* check whether 85% approximation works 
						margins, at(relsal_w=(-25(1)26) oldleft01=(0 1)) coeflegend post
						test 75._at=23._at // p is 0.1223, 85% CIs overlap
						test 76._at=24._at // p is 0.0610, 85% CIs just don't overlap; 95% CIs overlap
						test 77._at=25._at // p is 0.0287, 85% CIs don't overlap; 95% CIs overlap

														
			*** Descriptive statistics
				sum uegen_diff if e(sample)
				sum oldleft01 if e(sample)
				sum relsal_w if e(sample)
				sum gdpgr if e(sample)
				sum KOFGIecon if e(sample)
				sum deficit if e(sample)
				sum unemp if e(sample)
				sum elderly if e(sample)
				sum deindus if e(sample)
				sum uniondens if e(sample)
				sum cycle_length if e(sample)
				sum uniondens if e(sample)
				sum iconstraints if e(sample)

	
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m4			
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0, lcolor(gs6)) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (model 4)")) ///
						scheme(plotplainblind) name(ugen_le_salience2, replace)
						
				* Predicted values	
					margins, at(relsal_w=(-25(1)26) oldleft01=(0 1))
						marginsplot, level(85) ///
							xscale(titlegap(0)) xtitle("Relative salience economic items", size(small)) ///
							ci1opts(lcolor(gs10)) plot1opts(color(gs10)) ci2opts(lcolor(black)) plot2opts(color(black)) ///
							text(0.9 1 "Left cabinet", color(black) size(small)) ///
							text(-0.5 1 "Non-left cabinet", color(gs10) size(small)) ///
							yline(0, lcolor(gs6)) ytitle("") legend(off) ///
							title("Predicted changes in unemployment benefit generosity (model 4)") ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 26)) xlabel(-25(5)25) bin(20) yscale(range(-1 2)) ylabel(-1(1)2) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2))) ///
							scheme(plotplainblind) name(pred_ugen2, replace)
																					
						* check whether 85% approximation works 
						margins, at(relsal_w=(-25(1)26) oldleft01=(0 1)) coeflegend post
						test 74._at=22._at // p is 0.0515, 85% CIs just overlap
						test 75._at=23._at // p is 0.0286, 85% CIs don't overlap; 95% CIs do overlap	
						
						
			esttab  m1 m2 m3 m4 using Table1.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 
							
			graph combine wgen_le_salience1 wgen_le_salience2 ugen_le_salience1 ugen_le_salience2, rows(2) imargin(tiny) scheme(plottig) name(Figure3, replace)
								
			graph combine pred_gen1 pred_gen2 pred_ugen1 pred_ugen2, rows(2) imargin(zero) scheme(plotplainblind) name(Figure4, replace)

			
			
		
		
			*******************************************
*****		********** Robustness checks **************		*****
			******************************************* 		
		
		
*************************************************************************************************************************************** 
************************** ||||| - APPENDIX SECTION 3: Including different sets of control variables - ||||| **************************
***************************************************************************************************************************************


use "EconOrCult_main dataset", clear 
				
	drop if country == "USA" | country == "New Zealand" | country == "Japan" | country == "Canada" | country == "Australia"

	
										
********** Parsimonious models to check for suppression effects **********
			
	* Model 1
		* Main model:
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m1
					
		gen base1=0
		replace base1=1 if e(sample)
		
		* Including only statistical controls
			* Start value, period length, time trend
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w trend i.CNTRnumeric if cycle_length > 1 & base == 1
					eststo m1_rd1
			* Start value
			reg wfsgen_diff wfsgen_start c.oldleft01##c.relsal_w i.CNTRnumeric if cycle_length > 1 & base == 1
					eststo m1_rd2
			* Country dummies only
			reg wfsgen_diff c.oldleft01##c.relsal_w i.CNTRnumeric if cycle_length > 1 & base == 1
					eststo m1_rd3
		
		esttab m1 m1_rd1 m1_rd2 m1_rd3 using TableM1rd.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 

		
	* Model 2
		* Main model
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m2
							
		* Including only statistical controls
			* Start value, period length, time trend
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w trend if cycle_length > 1 & base == 1, cluster(country)
					eststo m2_rd1
			* Start value
			reg wfsgen_diff wfsgen_start c.oldleft01##c.relsal_w if cycle_length > 1 & base == 1, cluster(country)
					eststo m2_rd2
			* "Bivariate" relationshsip
			reg wfsgen_diff c.oldleft01##c.relsal_w if cycle_length > 1 & base == 1, cluster(country)
					eststo m2_rd3
						
		esttab m2 m2_rd1 m2_rd2 m2_rd3 using TableM2rd.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 

								
	* Model 3		
		* Main model
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m3
					
		gen base2=0
		replace base2=1 if e(sample)
				
		* Including only statistical controls
			* Start value, period length, time trend
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w trend i.CNTRnumeric if cycle_length > 1 & base2 == 1
					eststo m3_rd1
			* Start value
			reg uegen_diff uegen_start c.oldleft01##c.relsal_w i.CNTRnumeric if cycle_length > 1 & base2 == 1
					eststo m3_rd2
			* Country dummies only
			reg uegen_diff c.oldleft01##c.relsal_w i.CNTRnumeric if cycle_length > 1 & base2 == 1
					eststo m3_rd3
						
		esttab m3 m3_rd1 m3_rd2 m3_rd3 using TableM3rd.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 
		
		
	* Model 4
		* Main model
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m4

		* Including only statistical controls
			* Start value, period length, time trend
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w trend if cycle_length > 1 & base2 == 1, cluster(country)
					eststo m4_rd1
			* Start value
			reg uegen_diff uegen_start c.oldleft01##c.relsal_w if cycle_length > 1 & base2 == 1, cluster(country)
					eststo m4_rd2
			* "Bivariate" relationshsip
			reg uegen_diff c.oldleft01##c.relsal_w if cycle_length > 1 & base2 == 1, cluster(country)
					eststo m4_rd3
				
		esttab m4 m4_rd1 m4_rd2 m4_rd3 using TableM4rd.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 
			
		
		
********** Controlling for the cabinet share of christian democracy **********
			
	* Model 1
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w christian01 gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m9
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w c.christian01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m10
				
	* Model 2
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w christian01 gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m11
		reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w c.christian01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m12

	* Model 3
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w christian01 gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m13
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w c.christian01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
				eststo m14

	* Model 4
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w christian01 gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m15
		reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w c.christian01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
				eststo m16
								
		esttab m9 m10 m11 m12 m13 m14 m15 m16 using TableCHRIST.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 

					
					
					
				
*************************************************************************************************************************************** 
**************** ||||| - APPENDIX SECTION 4: Alternative operationalizations of the main independent variables - ||||| ****************
***************************************************************************************************************************************


use "EconOrCult_main dataset", clear 
				
	drop if country == "USA" | country == "New Zealand" | country == "Japan" | country == "Canada" | country == "Australia"

	
	
	********** Use a measure of the left cabinet share including Green parties **********
				
		***** Welfare state generosity					
			reg wfsgen_diff wfsgen_start cycle_length c.newleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1	
						eststo mleft1
				margins, dydx(c.newleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-4 6) titlegap(0)) ylabel(-4(2)6) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (model 1)")) ///
						scheme(plotplainblind) name(wgen_left1, replace)	
					
			reg wfsgen_diff wfsgen_start cycle_length c.newleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo mleft2
				margins, dydx(c.newleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-4 6) titlegap(0)) ylabel(-4(2)6) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (model 2)")) ///
						scheme(plotplainblind) name(wgen_left2, replace)
									
									
		***** Unemployment benefits generosity
			reg uegen_diff uegen_start cycle_length c.newleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo mleft3
				margins, dydx(c.newleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26)) xlabel(-25(5)25) bin(20) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (model 3)")) ///
						scheme(plotplainblind) name(ugen_left3, replace)	
									
			reg uegen_diff uegen_start cycle_length c.newleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo mleft4
				margins, dydx(c.newleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items", size(small)) ///
						ytitle("Effect of left cabinet share", size(small)) ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26)) xlabel(-25(5)25) bin(20) yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (model 4)")) ///
						scheme(plotplainblind) name(ugen_left4, replace)			
									
			
		esttab  mleft1 mleft2 mleft3 mleft4 using TableLEFT.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
									
		graph combine wgen_left1 wgen_left2 ugen_left3 ugen_left4, rows(2) imargin(vsmall) scheme(plotplainblind) name(FigureA4, replace)

	

	********** Government position **********
		
		***** Welfare state generosity						
			reg wfsgen_diff wfsgen_start cycle_length c.govpos##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1	
						eststo mpos1
				margins, dydx(c.govpos) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of government position") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-10 15) titlegap(0)) ylabel(-10(5)15) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (Model 1)")) ///
						scheme(plotplainblind) name(wgen_pos1, replace)
												
			reg wfsgen_diff wfsgen_start cycle_length c.govpos##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo mpos2
				margins, dydx(c.govpos) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of government position") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample), xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-10 15) titlegap(0)) ylabel(-10(5)15) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (Model 2)")) ///
						scheme(plotplainblind) name(wgen_pos2, replace)
					
		***** Unemployment benefits generosity
			reg uegen_diff uegen_start cycle_length c.govpos##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo mpos3
				margins, dydx(c.govpos) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of government position") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-5 10) titlegap(0)) ylabel(-5(5)10) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (Model 3)")) ///
						scheme(plotplainblind) name(ugen_pos3, replace)
								
			reg uegen_diff uegen_start cycle_length c.govpos##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo mpos4
				margins, dydx(c.govpos) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of government position") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-5 10) titlegap(0)) ylabel(-5(5)10) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (Model 4)")) ///
						scheme(plotplainblind) name(ugen_pos4, replace)
	
				esttab  mpos1 mpos2 mpos3 mpos4 using TablePOS.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 
							
				graph combine wgen_pos1 wgen_pos2 ugen_pos3 ugen_pos4, rows(2) imargin(small) scheme(plotplainblind) name(figureA5, replace)


				
	********** Different operationalizations of relative economic salience based on CMP data **********
				
		* - Relative salience unweighted by party size		
		* - Economic issue emphasis: measure of the absolute economic salience without subtracting cultural emphasis		   		   
		* - Excluding left parties from the measure of the relative salience of the economic dimension
		* - Varying the composition of CMP categories
				
			* Replicate model 1
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
					eststo m1
				margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
											
				* Unweighted relative salience
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_uw gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m29
					margins, dydx(c.oldleft01) at(c.relsal_uw=(-25(1)23))				
													
				* Weighted absolute salience
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.econsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m30
					margins, dydx(c.oldleft01)	at(c.econsal_w=(10(5)41))
							
				* Excluding left parties from salience measure
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_noLEFT gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m31
					margins, dydx(c.oldleft01) at(c.relsal_noLEFT=(-32(5)22))
						
				* Different composition of issue categories (weighted relative salience)
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w_alt gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m32
			
			esttab m1 m29 m30 m31 m32 using Table_replM1.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
			
									
			* Replicate model 2
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
					eststo m2
				margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
					
				* Unweighted relative salience
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_uw gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m33
					margins, dydx(c.oldleft01) at(c.relsal_uw=(-25(1)23))

				* Weighted absolute salience
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.econsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m34
					margins, dydx(c.oldleft01)	at(c.econsal_w=(10(5)41))
						
				* Excluding left parties from salience measure
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_noLEFT gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m35
					margins, dydx(c.oldleft01) at(c.relsal_noLEFT=(-32(5)22))						
						
				* Different composition of issue categories (weighted relative salience)
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w_alt gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m36
								
			esttab m2 m33 m34 m35 m36 using Table_replM2.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
							
							
			* Replicate model 3
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
					eststo m3
				margins, dydx(c.oldleft01) at(c.relsal_w=(-24(1)26))
					
				* Unweighted relative salience
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_uw gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m37
					margins, dydx(c.oldleft01) at(c.relsal_uw=(-29(5)23))
						
				* Weighted absolute salience
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.econsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m38
					margins, dydx(c.oldleft01)	at(c.econsal_w=(10(5)41))
						
				* Excluding left parties from salience measure
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_noLEFT gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m39
					margins, dydx(c.oldleft01) at(c.relsal_noLEFT=(-32(5)33))
						
				* Different composition of issue categories (weighted relative salience)					
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w_alt gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m40
					
			esttab m3 m37 m38 m39 m40 using Table_replM3.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace	
							
													
			* Replicate model 4
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
					eststo m4
				margins, dydx(c.oldleft01) at(c.relsal_w=(-24(1)26))
					
				* Unweighted relative salience
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_uw gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m41
					margins, dydx(c.oldleft01) at(c.relsal_uw=(-29(5)23))
							
				* Weighted absolute salience
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.econsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m42
					margins, dydx(c.oldleft01)	at(c.econsal_w=(10(5)41))
						
				* Excluding left parties from salience measure
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_noLEFT gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m43
					margins, dydx(c.oldleft01) at(c.relsal_noLEFT=(-32(5)32))
						
				* Different composition of issue categories (weighted relative salience)
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w_alt gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m44

			esttab m4 m41 m42 m43 m44 using Table_replM4.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace

				
		
	********** Controlling for simultaneous trends *****
			
			
		*** Replicate main models including an interaction between cabinet share and trend
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens c.trend c.oldleft01#c.trend i.CNTRnumeric if cycle_length > 1
					eststo m17
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints c.trend c.oldleft01#c.trend if cycle_length > 1, cluster(country)
					eststo m18
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens c.trend c.oldleft01#c.trend i.CNTRnumeric if cycle_length > 1
					eststo m19
				margins, dydx(c.oldleft01) at(c.relsal_w=(-24(1)26))
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints c.trend c.oldleft01#c.trend if cycle_length > 1, cluster(country)
				margins, dydx(c.oldleft01) at(c.relsal_w=(-24(1)26))
					eststo m20
			
			esttab  m17 m18 m19 m20 using TableTREND.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
			
			
		*** Generate a smoothed moving average of Salience and the individual election's difference to that mean
			sort country year (cab_cycle)
					
			rangestat (mean) relsal_w (count) relsal_w, interval(year -2 2)
						
			gen sal_diff_fr = relsal_w - relsal_w_mean
					
			twoway scatter relsal_w_mean year if year<=2011, yline(0) xtitle("") ytitle("") scheme(plotplainblind) name(FigureA6, replace)
				
			* Replicate main models using this difference to the 5-year-moving-average
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.sal_diff_fr gdpgr KOFGIecon deficit unemp elderly deindus uniondens i.CNTRnumeric if cycle_length > 1	
						eststo m21
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.sal_diff_fr gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints if cycle_length > 1, cluster(country)
						eststo m22
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.sal_diff_fr gdpgr KOFGIecon deficit unemp elderly deindus uniondens i.CNTRnumeric if cycle_length > 1
						eststo m23
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.sal_diff_fr gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints if cycle_length > 1, cluster(country)
							eststo m24

				esttab m21 m22 m23 m24 using TableMOVAV.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
						
						
		*** Generate decade averages of the relative salience of the economic dimension
			egen relsal70 = mean(relsal_w) if year < 1980
			egen relsal80 = mean(relsal_w) if year >= 1980 & year < 1990
			egen relsal90 = mean(relsal_w) if year >= 1990 & year < 2000
			egen relsal00 = mean(relsal_w) if year >= 2000 & year < 2012
										
			gen relsal_dec = relsal70
			replace relsal_dec = relsal80 if relsal_dec == .
			replace relsal_dec = relsal90 if relsal_dec == .
			replace relsal_dec = relsal00 if relsal_dec == .
											
			twoway scatter relsal_dec year if year<=2011, yline(0) xtitle("") ytitle("") scheme(plotplainblind) name(FigureA7, replace)
					
			gen sal_diff_dec = relsal_w - relsal_dec
					
			* Replicate main models using this difference to the decade mean
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.sal_diff_dec gdpgr KOFGIecon deficit unemp elderly deindus uniondens i.CNTRnumeric if cycle_length > 1	
						eststo m25
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.sal_diff_dec gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints if cycle_length > 1, cluster(country)
						eststo m26
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.sal_diff_dec gdpgr KOFGIecon deficit unemp elderly deindus uniondens i.CNTRnumeric if cycle_length > 1
						eststo m27
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.sal_diff_dec gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints if cycle_length > 1, cluster(country)
						eststo m28
							
				esttab m25 m26 m27 m28 using TableDECAV.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace

					
					

					
*************************************************************************************************************************************** 
********************************** ||||| - APPENDIX SECTION 5: Different sample compositions - ||||| **********************************
***************************************************************************************************************************************
				

		* - Exclude single countries		
		* - Jackknife estimations			
		* - Shorter time period
		* - Exclude the 1970th, i.e. the century during which the "golden age" of the welfare state came to an end				
		* - Include additional OECD-COuntries			*/
						
						
			* Replicate model 1
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						
				* Exclude single countries 
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Austria"
						eststo Austria
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Belgium"
						eststo Belgium
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Denmark"
						eststo Denmark
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Finland"
						eststo Finland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "France"
						eststo France
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Germany"
						eststo Germany
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Greece"
						eststo Greece
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Ireland"
						eststo Ireland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Italy"
						eststo Italy
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Netherlands"
						eststo Netherlands
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Norway"
						eststo Norway
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Portugal"
						eststo Portugal
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Spain"
						eststo Spain
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Sweden"
						eststo Sweden
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Switzerland"
						eststo Switzerland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "UK"
						eststo UK					
						
					coefplot Austria Belgium Denmark Finland France Germany Greece Ireland Italy Netherlands Norway Portugal Spain Sweden Switzerland UK, ///
						keep(c.oldleft01#c.relsal_w) coeflabel(c.oldleft01#c.relsal_w="Left cabinet share # Relative economic salience", wrap(20)) ///
						xscale(range(-.05 .2)) xlabel(-.05(.05).2) xline(0) title("Welfare state generosity (model 1)") legend(col(1) title("Excluded", size(small)) subtitle("(top to buttom):", size(small))) ///
						scheme(plotplainblind) name(model1, replace)
						
						drop _est_*
							
			* Replicate model 2
			reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
			
				* Exclude single countries 
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Austria", cluster(country)
						eststo Austria
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Belgium", cluster(country)
						eststo Belgium
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Denmark", cluster(country)
						eststo Denmark
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Finland", cluster(country)
						eststo Finland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "France", cluster(country)
						eststo France
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Germany", cluster(country)
						eststo Germany
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Greece", cluster(country)
						eststo Greece
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Ireland", cluster(country)
						eststo Ireland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Italy", cluster(country)
						eststo Italy
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Netherlands", cluster(country)
						eststo Netherlands
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Norway", cluster(country)
						eststo Norway
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Portugal", cluster(country)
						eststo Portugal
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Spain", cluster(country)
						eststo Spain
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Sweden", cluster(country)
						eststo Sweden
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Switzerland", cluster(country)
						eststo Switzerland
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "UK", cluster(country)
						eststo UK					
						
					coefplot Austria Belgium Denmark Finland France Germany Greece Ireland Italy Netherlands Norway Portugal Spain Sweden Switzerland UK, ///
						keep(c.oldleft01#c.relsal_w) coeflabel(c.oldleft01#c.relsal_w="Left cabinet share # Relative economic salience", wrap(20)) ///
						xline(0) title("Welfare state generosity (model 2)") legend(col(1) title("Excluded", size(small)) subtitle("(top to buttom):", size(small))) scheme(plotplainblind) name(model2, replace)
							
						drop _est_*		
							
			graph combine model1 model2, rows(1) imargin(vsmall) scheme(plotplainblind) name(FigureA8, replace)
					
							
			* Jackknife
							
				* Model 1
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1, vce(jackknife)
						eststo m45
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
	
				* Model 2
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, vce(jackknife)
						eststo m46
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))

						
			* Shorter time period
						
				* Model 1
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if year > 1979 & cycle_length > 1
						eststo m47
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
								
				* Model 2
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if year > 1979 & cycle_length > 1, cluster(country)
						eststo m48
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
							
					
			* Including additional OECD countries
			use "EconOrCult_main dataset", clear
									
				* Model 1
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m49
					margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)30))
						marginsplot, level(95) ///
							xtitle("Relative salience economic items") ///
							ytitle("Effect of left cabinet share") ///
							yline(0) legend(off) ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 30) titlegap(0)) xlabel(-25(5)30) bin(20) yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (Table A18, Model 5)")) ///
							scheme(plotplainblind) name(wgen_le_salience_broad, replace)
																
				* Model 2									
				reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m50
					margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)30))
						marginsplot, level(95) ///
							xtitle("Relative salience economic items") ///
							ytitle("Effect of left cabinet share") ///
							yline(0) legend(off) ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 30) titlegap(0)) xlabel(-25(5)30) bin(20) yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Welfare state generosity (Table A18, Model 6)")) ///
							scheme(plotplainblind) name(wgen_le_salience_broad2, replace)								
					

					esttab m45 m46 m47 m48 m49 m50 using TabDiffSamGen.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace 
		
					
			* Replicate model 3
			use "EconOrCult_main dataset", clear
			drop if country == "USA" | country == "New Zealand" | country == "Japan" | country == "Canada" | country == "Australia"
					
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
							
				* Exclude single countries 
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Austria"
						eststo Austria
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Belgium"
						eststo Belgium
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Denmark"
						eststo Denmark
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Finland"
						eststo Finland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "France"
						eststo France
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Germany"
						eststo Germany
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Greece"
						eststo Greece
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Ireland"
						eststo Ireland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Italy"
						eststo Italy
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Netherlands"
						eststo Netherlands
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Norway"
						eststo Norway
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Portugal"
						eststo Portugal
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Spain"
						eststo Spain
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Sweden"
						eststo Sweden
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "Switzerland"
						eststo Switzerland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1 & country != "UK"
						eststo UK				
						
					coefplot Austria Belgium Denmark Finland France Germany Greece Ireland Italy Netherlands Norway Portugal Spain Sweden Switzerland UK, ///
						keep(c.oldleft01#c.relsal_w) coeflabel(c.oldleft01#c.relsal_w="Left cabinet share # Relative economic salience", wrap(15)) ///
						xline(0) title("Unemployment benefit generosity (model 3)") legend(col(1) title("Excluded", size(small)) subtitle("(top to buttom):", size(small))) ///
						scheme(plotplainblind) name(model3, replace)		
					
					drop _est_*																
				
			* Replicate model 4
			reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
	
				* Exclude single countries 
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Austria", cluster(country)
						eststo Austria
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Belgium", cluster(country)
						eststo Belgium
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Denmark", cluster(country)
						eststo Denmark
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Finland", cluster(country)
						eststo Finland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "France", cluster(country)
						eststo France
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Germany", cluster(country)
						eststo Germany
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Greece", cluster(country)
						eststo Greece
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Ireland", cluster(country)
						eststo Ireland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Italy", cluster(country)
						eststo Italy
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Netherlands", cluster(country)
						eststo Netherlands
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Norway", cluster(country)
						eststo Norway
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Portugal", cluster(country)
						eststo Portugal
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Spain", cluster(country)
						eststo Spain
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Sweden", cluster(country)
						eststo Sweden
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "Switzerland", cluster(country)
						eststo Switzerland
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1 & country != "UK", cluster(country)
						eststo UK				
						
					coefplot Austria Belgium Denmark Finland France Germany Greece Ireland Italy Netherlands Norway Portugal Spain Sweden Switzerland UK, ///
						keep(c.oldleft01#c.relsal_w) coeflabel(c.oldleft01#c.relsal_w="Left cabinet share # Relative economic salience", wrap(15)) ///
						xline(0) xscale(range(0 0.1)) xlabel(0(0.02)0.1) title("Unemployment benefit generosity (model 4)") legend(col(1) title("Excluded", size(small)) subtitle("(top to buttom):", size(small))) ///
						scheme(plotplainblind) name(model4, replace)
							
					drop _est_*							

				graph combine model3 model4, rows(1) imargin(vsmall) scheme(plotplainblind) name(FigureA9, replace)

												
			* Jackknife
					
				* Model 3
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1, vce(jackknife)
						eststo m51
					margins, dydx(c.oldleft01) at(c.relsal_w=(-24(1)26))
								
				* Model 4
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, vce(jackknife)
						eststo m52

						
			* Shorter time period
						
				* Model 3
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if year > 1979 & cycle_length > 1
						eststo m53
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))

				* Model 4
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if year > 1979 & cycle_length > 1, cluster(country)
						eststo m54
					margins, dydx(c.oldleft01) at(c.relsal_w=(-22(1)26))
							
							
			* Including additional OECD countries				
			use "EconOrCult_main dataset", clear
								
				* Model 3
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
						eststo m55
					margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)30))
						marginsplot, level(95) ///
							xtitle("Relative salience economic items") ///
							ytitle("Effect of left cabinet share") ///
							yscale(titlegap(0)) yline(0) legend(off) ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 30) titlegap(0)) xlabel(-25(5)30) bin(20) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (Table A19, Model 5)")) ///
							scheme(plotplainblind) name(ugen_le_salience_broad, replace)
								
				* Model 4
				reg uegen_diff uegen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
						eststo m56
					margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)30))
						marginsplot, level(95) ///
							xtitle("Relative salience economic items") ///
							ytitle("Effect of left cabinet share") ///
							yscale(titlegap(0)) yline(0) legend(off) ///
							addplot(hist relsal_w if e(sample),  xscale(range(-25 30) titlegap(0)) xlabel(-25(5)30) bin(20) ///
							percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Unemployment benefit generosity (Table A19, Model 6)")) ///
							scheme(plotplainblind) name(ugen_le_salience_broad2, replace)										
												
					esttab m51 m52 m53 m54 m55 m56 using TabDiffSamUegen.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace						
												
					graph combine wgen_le_salience_broad wgen_le_salience_broad2 ugen_le_salience_broad ugen_le_salience_broad2, rows(2) imargin(vsmall) scheme(plotplainblind) name(FigureA10, replace)

									
															

																	
*************************************************************************************************************************************** 
********************************** ||||| - APPENDIX SECTION 6: Different dependent variables - ||||| **********************************
***************************************************************************************************************************************


use "EconOrCult_main dataset", clear 
				
	drop if country == "USA" | country == "New Zealand" | country == "Japan" | country == "Canada" | country == "Australia"


																				
	********** Additional dependent variables: sickgen and pengen **********
									
		* Sickness benefit generosity
			reg sickgen_diff sickgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
					eststo m57
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of left cabinet share") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-2 4) titlegap(0)) ylabel(-2(2)4) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Sickness benefit generosity (Model 1)")) ///
						scheme(plotplainblind) name(sickgen_le_salience1, replace)

			reg sickgen_diff sickgen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
					eststo m58
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of left cabinet share") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-2 4) titlegap(0)) ylabel(-2(2)4) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Sickness benefit generosity (Model 2)")) ///
						scheme(plotplainblind) name(sickgen_le_salience2, replace)

						
		* Pension benefits generosity
			reg pengen_diff pengen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens trend i.CNTRnumeric if cycle_length > 1
					eststo m59
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of left cabinet share") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-2 2) titlegap(0)) ylabel(-2(1)2) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Pensions generosity (Model 3)")) ///
						scheme(plotplainblind) name(pengen_le_salience1, replace)
						
			reg pengen_diff pengen_start cycle_length c.oldleft01##c.relsal_w gdpgr KOFGIecon deficit unemp elderly deindus uniondens eu iconstraints trend if cycle_length > 1, cluster(country)
					eststo m60
				margins, dydx(c.oldleft01) at(c.relsal_w=(-25(1)26))
					marginsplot, level(95) ///
						xtitle("Relative salience economic items") ///
						ytitle("Effect of left cabinet share") ///
						yline(0) legend(off) ///
						addplot(hist relsal_w if e(sample),  xscale(range(-25 26) titlegap(0)) xlabel(-25(5)25) bin(20) yscale(range(-2 2) titlegap(0)) ylabel(-2(1)2) ///
						percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) title("Pensions generosity (Model 4)")) ///
						scheme(plotplainblind) name(pengen_le_salience2, replace)
								
			esttab m57 m58 m59 m60 using Table_altDV.rtf, b(3) se(3) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
											
			graph combine sickgen_le_salience1 sickgen_le_salience2 pengen_le_salience1 pengen_le_salience2, rows(2) imargin(vsmall) scheme(plotplainblind) name(FigureA11, replace)

		
		

		
*************************************************************************************************************************************** 
********************************** ||||| - APPENDIX SECTION 7: Economic dimension dominance - ||||| ***********************************
***************************************************************************************************************************************

use "EconOrCult_additional dataset", clear	

														
***** Welfare state generosity						
reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.firstdimdom gdpgr KOFGIecon deficit unemp uniondens i.CNTRnumeric
		eststo m45
	margins, dydx(c.oldleft01) at(c.firstdimdom=(25(1)94))	
	gen base1=1 if e(sample)
		
		
reg wfsgen_diff wfsgen_start cycle_length c.oldleft01##c.firstdimdom gdpgr KOFGIecon deficit unemp uniondens iconstraints, cluster(country)
		eststo m46
							
	* Baseline models
	reg wfsgen_diff wfsgen_start cycle_length c.oldleft01 gdpgr KOFGIecon deficit unemp uniondens i.CNTRnumeric if base1==1
			eststo m47
	reg wfsgen_diff wfsgen_start cycle_length c.oldleft01 gdpgr KOFGIecon deficit unemp uniondens iconstraints if base1==1, cluster(country)
			eststo m48
		
		drop base1											
		
		
***** Unemployment benefits generosity						
reg uegen_diff uegen_start cycle_length c.oldleft01##c.firstdimdom gdpgr KOFGIecon deficit unemp uniondens i.CNTRnumeric
			eststo m49
		margins, dydx(c.oldleft01) at(c.firstdimdom=(25(0.5)95))
			count if firstdimdom > 72 & e(sample)
		
	margins, dydx(c.oldleft01) at(c.firstdimdom=(25(1)95))
		marginsplot, level(95) ///
			xtitle("First dimension dominance") ///
			ytitle("Effect of left cabinet share") ///
			yline(0) legend(off) ///
			addplot(hist firstdimdom if e(sample), xscale(range(25 95) titlegap(0)) xlabel(25(10)95) bin(20) ///
			yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
			percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) ///
			title("Unemployment benefit generosity", size(medium))) scheme(plotplainblind) name(ugen_le_dimdom1, replace)
								
		gen base2=1 if e(sample)
								
								
reg uegen_diff uegen_start cycle_length c.oldleft01##c.firstdimdom gdpgr KOFGIecon deficit unemp uniondens iconstraints, cluster(country)
			eststo m50
	margins, dydx(c.oldleft01) at(c.firstdimdom=(25(1)95))
		marginsplot, level(95) ///
			xtitle("First dimension dominance") ///
			ytitle("Effect of left cabinet share") ///
			yline(0) legend(off) ///
			addplot(hist firstdimdom if e(sample), xscale(range(25 95) titlegap(0)) xlabel(25(10)95) bin(20) ///
			yscale(range(-2 3) titlegap(0)) ylabel(-2(1)3) ///
			percent yaxis(2) yscale(alt range(0 100) axis(2) titlegap(0)) ytitle("", axis(2)) ylabel(none , axis(2)) ///
			title("Unemployment benefit generosity", size(medium))) scheme(plotplainblind) name(ugen_le_dimdom2, replace)
			
			
	* Baseline models
	reg uegen_diff uegen_start cycle_length c.oldleft01 gdpgr KOFGIecon deficit unemp uniondens i.CNTRnumeric if base2==1
			eststo m51
	reg uegen_diff uegen_start cycle_length c.oldleft01 gdpgr KOFGIecon deficit unemp uniondens iconstraints if base2==1, cluster(country)
			eststo m52
		
		drop base2
						
esttab m47 m48 m45 m46 m51 m52 m49 m50 using TableA22.rtf, b(2) se(2) star(* 0.1 ** 0.05 *** 0.01) nogaps replace
graph combine ugen_le_dimdom1 ugen_le_dimdom2, rows(1) imargin(vsmall) scheme(plotplainblind) name(FigureA12, replace)